SEITE 1 

1 * GENERAL AUTOMATION, IMC, ALL RIGHTS RESERVED 

2 ************************************************** 

3 * 

4 * PROGRAM NAME FpH-Q5 

5 * 

6 * MODEL NUMBER 8F0C5 

7 * 

8 * PURPOSE FORTRAN PHASE*05> 

9 * 

10 * PROGRAMMER DICK WALL^ANN, MODS-HARK tLKISLD 

11 * 

12 ***************** REVISION LIST ************** 

13 * 

14 * RV DATE SCO BY RfcASON FOR CHANGE 

15 * -- - " " "" 

16 * 

17 * 01 11/16/70 NONE INITIAL RELEASE 

18 * 

19 ************************************************** 

20 ************************************************** 

21 * GA 18/30 FORTRAN COMHILEK 05/01/7C 

22 *STATUS-VERSJON 1 , MOD I F I CAT I QN 

23 *FUNCTION/OPERATlON~ 

24 * * ANALYZES DIMENSION STnNTS, PLACES DIMENSION 

25 * INFORMATION INTO THE SYMBUL TABLE, 

26 * * REMOVES D I MENSION "STMNT FKOM THE STMNT 

27 * STRING 

28 * * PLACES VARIABLES AND DIMENSION INFORMATION 

29 * FROM REAL, INTEGER* AND EXTERNAL STMNTS IMTO 

30 * THE SYMBOL TABLE 

31 * * INDICATES IN THE SYMBUL TABLE ID WORD THE 

32 * MODE (REAL OR INTEGER} 

33 * * CHECKS EXTERNAL STMNTb FOK THE NAMES IFIX 

34 * AND FLOAT, WHICH ARE NOT ALLOWED. 

35 * * THE PROCESSING OF PHASE 5 IS DONE IN TWO 

36 * PASSES, THE FIRST PASb ANALYZE^ DIMENSION 

37 * STMNTS, THE SECOND PASS EXAMINES REAL* 

38 * INTEGER, AMD EXTERNAL STMNTS FOUND IN THE 

39 * STMNT STRING 

40 *ENTRY POINTS- 

41 * * TOP-PHASE 5 IS READ InTq CORE BY PHASE 4 VIA 

42 * THE RDLRX ROUTINE AND EXECUTION BEGUN 

43 * AT LOCATION TOP, 

44 *INPUT- 

45 * NOME IN THE USUAL SENSE, HOWEVER, THE STMNT 

46 * STRING SCANNED BY THE CUMRlLEK MAY BE 

47 * CONSIDERED INPUT. 

48 *QUTPUT- 

49 * NONE IN THE USUAL SENSE, HOWEVER, PHASE 5 

r>0 * REMOVES STMNTS FROM THE STMNT STRING AND ADDS 

51 * ENTRIES TO THE SYMBOL TaBlE, 

52 *EXTERNAL REFERENCbS- 

53 * SUBROUTINES- 

54 * * ROL 

55 *EXITS- 

56 * NORMAL- „ ,„ „ „ „ 

57 * PHASE EXITS NORMALLY IF NO STMNTS OF THE 
*; 8 * TYPE IT PROCESSES ARfc ENCOUNTERED OR If MO 
«59 * ERRORS ARE FQUMD l PHaSE 6 jS LOADED AND 
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6 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 

7 3 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 

8 5 
86 
8 7 
88 
89 
90 
91 
92 
93 
94 
95 
96 

, 97 
"98 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 



* FXEC 

* ERROR- 

* THE 

* INTE 

* AN E 

* ON T 

* CONT 

* OF A 

* ABOR 

* TO S 

* IS R 

* THE 

* 16, 
•TABLES/WOR 

* THE STA 

* THE FOR 



UTED, 

FLOW OF 
RRUPTED 
RROR ST 
HE STRI 
INUES, 
N OVERL 
TED AND 
UCCEEDI 
EACHED 
ERRORS 
17, 18, 
K AREAS 
TEMEN'T 
TRAM CO 
-N/A 



COMPILER PROCESSING JS NOT 

WHEN AN fcRROH JS ENCOUNTERED 
MNT REPLACES 1 HE FAULTY STMNT 
NS AND STMNT SCANNING PROCESS 
AN EXCEPTION OCCURS IN THE CASE 
AP ERROR, COMPILATION IS 

CONTROL lS PASSED FROM P| ! ASE 
NG PHASE UNTIL AN OUTPUT FHASE 
WHICH CAN'PRINT AN ERROR MESSAGE 
DETECTED bY PHASE 5 ARE 7, 8, 

19, 20, 21, AND 22, 

w ■ 

string, the symbol table and 
mmunications area, 



TCHES 
'HE 



USED 
SWITCH I 



•ATTRIBUTES 

♦HOTES- 

* THE SWI 

ZERO, T 

* SWITCH IS NORMAL=f 

* SW2- 

* 
* 
* 
* 



* 

* 

* 
* 
* 

* 

* 



SW3- 
SW1A 

SW3A 
SW4- 
SM5- 
SW6- 



__ ARS 



* 

MEMRY 

PHSIZ 

OVERL 

FCOM 

PHNTB 

ROLRX 

* 

SOFS 

EOFS 

SOFST 

SOFNS 

SOFXT 

SOFGT 

EOFST 

COMON 

CSIZE 

ERROR 

FNAME 



SYSTE 

EQU 

EQU 

EOU 
EQU 
EQU 
EQU 
FORTR 

ORG 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



OPERATOR SE 
T=NEXT OPER 
SYMBOL TABL 
TeSYHBOL TA 
-TYPE STATE 
TsTYpE STMN 
NsREAL STAT 
TsINTFGER S 
-SEMICOLON 
TsSE 'ICOLOM 
EXTERNAL ST 
TsEXTERNAL 
DIMENSIONED 
TsNOT DIMEN 
TEMPORARY E 
TcTEMPORARY 

%e f= c?*-t? 

AMD FORTR 

4*320 
MEMRYrPH 
OVERL-22 
FCOM-56 
PHNTB-5C 
CDMMUNIC 
FOR 

FCOM 
1 
1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 



Af 



IN PHASE 5 FOLLOW, IF NON- 
S TKANSFEKbT, IF ZERO, the: 

MICOLUN 

ATOR MUST BE SEMICOLON 

E' OPEN 

BLE'WaS SPREAD THREE WORDS 

MENT ENCOUNTERED 

T HAS" BfcEN ENCOUNTERED 

EMENT 

TATEMENT 

MUST Bfc NEXT 
ATEMENT 
STMNT ENCOUNTERED 

NAME 

sioneu name 
xternal switch 
external 

AN EQUATES 

r MAXJMUM CURE SIZE 

maxjmum phase size 
siz phases 2-29 start 
"fori Ran comm, table 
phase table 

INTtRRHASfc CALL 
ATION" AREA 
TRAN COMMUNjCA T H'N AREA 

START Of- STRING 
END OF STNINO 
STAKT OP SYMBOL TABLE 
START OH NON-SUBSC NUMBERS 
STAkT Ol- SUBSC TEMPORARIES 
STAKT Oh GENERATED TEMPS 
E^D"OF SYMBOL TABLE 
NEX1 AVAILABLE COMMON 
SlZfc O^ COMMON 

oveklap error 

PKOuRaM name 
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120 SORF 8SS 1 SJBK < >• > UR INUNCTION (+) 

1?1 CCWD BSS 1 CONTROL CARD WORD 

122 * BIT 15 TRANSFER TRACE 

123 * BIT 14 ARITHMETIC TRACE 

124 * BIT 13 EXTtNDEU PRECISION 
i?5 * BIT 12 LIST SYMBOL TABLE 

12 6 * BIT 11 LIST SUBPROGRAM NAMRS 

127 * BIT 10 LIST SOURCE PROGRAM 

128 * BIT 9 ONE'WQRU INTEGERS 

129 * BIT 8 PUNCH 

130 * BIT 7 NONHRQCfcSS PROGRAM 

131 IOCS BSS 1 IOCS CONTROL CARD WORD 

132 * SEE PHASE ONE FOR BIT PATTERNS 

133 DFCNT BSS 1 "FILt TABLE WORD COURT 

134 LCOMN BSS 2 SlZfc OF INSK&L COMMON 

135 ICCER BSS 2 IOCb CONTROL CARD ERROR 

136 BSS 2 SYSTEM LOADER USE 

137 * END OF FORTRAN COMMUNICATION 

138 * AREA 

139 ORG OVERL 

140 TOP LDX II SOFS STAKT OK STRING ADDR 

141 LD EPRQR OVERLAP ERRO* INDICATOR 

142 BSC L BEGIN, Z BR TO NtXT PHASE IF OVERLA 

143 TEST LD 1 FIRST WORD OF STHNT 

144 SRA 1 POSITION TO TEST STRNT TYR 

145 AND inTPfc STATEMENT TYPE (BITS 1-5:) 

146 S EMDC END'STATEMENT CONSTANT 

147 BSC L BEGIN,*- BR TO BEGIN IF END STHNT 

148 S DIMC DIMENSION STMNT CONSTANT 

149 BSC +- SKJK NEXT IF NOT DIMENSION 
l^o MDX MIX BR tO SCAN DIMENSION ST*NT 
151 MV LD 10 STMNT ID WORD 

15? SRA 2 

1S3 AND IHNRM EXTkACT STHNT WORD COUNT 

1^4 STO NXID+1 ST COUNT TO UPDATE POINTER 

155 NXID MDX LI *-* INCREMENT TO NtXT STMNT 

156 MDX TEST BR TO TfcST STMNT TYRE 
1«57 * CONSTANTS AND WQRK AREA 

158 ENDC DC /Q800 END STATEMENT CONSTANT 

1^9 DIMC DC /2000-/0800 ' DIMENSION STRNT CORSTAfl 

160 SEMJC DO /001E SEMi-cOLON CONSTANT 

161 ERR DC IB ERROR lb CONSTANT 

162 ERR7 DC 7 ERROR 7 CONSTANT 

163 ERRS DC 8 ERRuR 8 CONSTANT 

164 FRR16 DC 16 ERRuR 16 CONSTANT 

165 ERR17 DC 17 ERROR 17 CONSTANT 

166 ERRN0 DC ERRuR NUMBER 

167 WD1 DC STMnT NAMfc (FIRST HALF) 

168 WD2 DT STM^T NAME (SECOND HALF) 

169 SAVE DC INDEX RtGjSTER 3 TEMPORARY 

170 IDNRM DC /UFF STMNT WORD COUNT MASK 

171 UC 0" RtStRVEU FOR FUTURE USE 

172 SW2 DC ERROR 16 SWITCH NON-ZERD=0 

173 DIMSV DC INDtX REGISTER 1 TEMPORARY 

174 IDTPE DC /7CO0 STATEMENT TYPE MASK 

175 ERRID DC /A008 ERRuR IDENTIFIER CONSTANT 

176 ZERO DC /SC00 SWITCH 2 RESET CONSTANT 

37 7 * INITIALIZE TO SCAN DIMENSION STMNT 

378 MIX STX 1 DIMSV SAVfc START ADDP OF STMNT 
j 79 MDX 1 1 INCREMENT STMNT ADDRESS 
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180 
181 
182 
183 
184 
18b 
186 
187 
188 
1*9 
190 
191 
192 
193 
194 
195 
196 
197 
108 
199 
200 
201 
202 
203 
2H4 
20b 
20 6 
207 

20 8 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 

228 
229 

230 
231 
232 
233 
234 

235 
236 
237 

238 
239 



SIP 



PADS 



MADS 



ZORRO 
LOOP 



HEAT 
BILL 



CHK 



ER17 



ER8 
ER16 
ER7 
ER 



SLA 

STO 

ST0 

LD 

S 

BSC 

LD 

BSC 

MDX 

LD 

BSC 

MDX 

STO 

SLA 

BSC 

LD 

BSC 

LD 

STO 

MDX 

STO 

MDX 

LD 

BSC 

LDX 

MDX 

LD 

S 

BSC 

MDX 

LD 

S 

BSC 

MDX 

STX 

LD 

S 

BSC 

MDX 

MDX 

LD 

SLA 

BSC 

LD 

STO 

MDX 

LD 

STO 

MDX 

LD 

STO 

MDX 

LD 

STO 

MDX 

LD 

STO 



16 
S^'2 
L S '3 
1 
SEMIC 

L RMOVE,+- 
S,,«2 

L E916,Z 
L S*'2,l 

1 



ER7 

Witt 

2 

ER7 

1 

MAD 

ZER 



WD2 
ZOR 
WD 2 

1 1 

1 1 

L ER7 

LOO 

13 SOF 

BIL 

3 1 
WD1 
Z 
HE A 

3 2 
WD2 
L CHK 

3 -3 

3 SAV 
SAV 
L EOF 
Z 

LOO 
PLA 

3 
8 
L PRE 
SET 
ERR 
ERR 
CLO 
ERR 
ERR 

CLO 
ERR 
ERR 
CLO 
ERR 
ERR 
CLO 
E9R 
ERR 
CLO 



,c + z 
s,*z 



RU 



K FOR 

NS 

L 



E 
E 
ST 

P 

Cfc 



V,- 

UP E 
17 

NO 
SE 

8 

NO 

SE 

16 

NO 

Sb 

7 

NO 

SE 

NU 
SE UP 



CLEAR ACCUMULATOR 

TURN OFF SWITCH 2 

TURN OFF SWITCH 3 

LOAU NEXT STUNT WORD 

SEMi-COLON 

8K JF CHAR I H SEMI-COLOV! 

ERRuR 16 INDICATOR 

BR IF PUSJTJVE 

SET ERRUR 16 INDICATOR ON 

STATEMENT NAME (FIRST HALT 

br 10 ek7 if first char is 
not'alphabetic, 

SAVt FIRST HALF OF f'AME 



8R i 
LAST 
BR I 
ONE 
LAS | 
8R f 
LAS? 
INCH 
BR ] 
THAN 
NAME 
STAN 
BR r 
LP N 
FIRb 
SKIP 
BR 1 
LD N 
LAS I 
BR i 
DECR 
St OR 
LOAU 
END 
SKIM 
BR i 
BR 1 
CHEu 
BR I 

subr 

RRORS" 
ERRU 
ERRU 
BR ! 
ERRU 
ERRU 
8R 1 
ERRU 
ERRu 
BR 1 
ERRU 
ERRU 
BR 1 
ERRU 
ERRU 
STRIN 



F 1ST CHA 

HALF OF 
F NAME LO 
WgRu NAME 

HALF OF 
SEARCH 

HALF OF 
EMENT ST" 
ER7 IF 

TWO WORO 
IN SYMBOL 
T OF NON- 
CHECK fc 
EXT SYMBO 
T HALF OF 

NEXT IF 
F NUT EQU 
EXT SYMBO 

HALF OF 
F NAME FO 
EMENT SYM 
E Tu TEMP 

CURRENT 
OF" SYMBOL 

NEXT IF 
O CUNTIN'J 
O PUT MAM 
K FUR SUB 
O SET ERR 
RQGRAM NA 



17 I NDI 

NUMBER 
CLOSE S 
08 I NDI 
NUMBER 
CLOSE S 
16 I NDI 
NUMBER 
CLOSE 3 
7 I NDI 
MUMBER 
CLOSE ^ 
la 1NDI 
MUMBER 



R MOT ALP 
STATEMENT 
NGER THAN 

IMDICATO 
NAME 

SYMBOL TA 
NAME 

NT ADDLES 
NAME IS M 
S LONG, 

TABLE 
SThNT HUM 
ND OF SEA 
L TABLE E 

NAME 
EQUAL MAM 
AL NAME 
L TABLF E 
NAME 
UMD 

BPL TALLE 
ORARY 

search ad 
table 
end searc 

E SEARCH 
E IN TABL 
PROGRAM N 
OF' 17 IF 

ME IN STM 

CATOR 

TEMPORARY 

THING 

CATOR 

TEMPORARY 

THING 

CATOR 

TEMPORARY 

TPJNG 

CATOR 

TEMPORARY 

THING 

CATOR 

TEMPORARY 



HA 
MAM 

1: W 

R 

b^e 
s 

ORE 



8 = RS 

r:h 

NTRY 



E 
NTRY 

ADD 

ORES 

H 

E 
AME 

NT, 
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24 
241 
242 
243 
244 
245 

24 6 
247 

24a 

249 

25 
251 
252 
253 
254 
255 
256 
25 7 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
29 3 
294 

295 
296 
297 
298 



CLOSE LDX II DIMSV 

LD 1 

SRA 2 

AND IDNRM 

STO NRMSV 

A DIMSV 

STO GET 

LDX 12 GET 

LD ERR IP 

STO 1 

LD ERRNO 

STO 1 1 

MDX 1 1 

LD L EQFS 

S L DJMSV 

S NRMSV 

STO RANGE 

LDX 13 RANGE 

STX 1 SVV 

MDX 3 1 

LOOP1 LD 2 

STO 1 1 

MDX 1 1 

MDX 2 1 

MDX 3 -1 

MDX LOOP1 

STX LI FDFS 

LDX U SVV 

MDX 1 1 

BSC L TEST 

* CONSTANTS 

NRMSV DC 

GET DC C 

TWO DC 2 

RANGE DC 

SW DC 

TENT DC 

SW3 DC 

ONEDM DC /0B0O 

* PLACE NAM 
PLACE LD L W92 

STO 3 2 

LD L wm 

STO 3 1 

MDX L E0FST,*3 

MDX L S:)FXT # -3 

MDX L S'lFGT,-3 

* set type 

LD L WD1 

AND L PIU 

S L RQTI 

BSC +Z 

MDX REEL 

S L RGTN 

BSC L REEL#Z- 

LD L I DC I 

MDX VIP 

REEL LD IDCR 

VIP STO 3 

MDX LORD 



STRING ADDRESS 
FIRST WU OF STHNT 



EXTHAC 
SAVt J 
ADDH Y 
ADDK F 
NEXl S 
PUT'ER 
ON bTR 
EKRuR 
PUT ER 
InCkEm 
END'OF 
A DDK F 
WORD C 
COMHUT 
RANUE 
SAVt I 



T STMN 
N WD C 
INST W 
IKST W 
TMNT 
RUR ID 
ING, 
NUM&ER 
RgR NU 
ENT ST 
bTR IN 
IKST W 
OUNT T 
EU KAN 



T hORD 
OUNT T 
D OF T 
n NEXT 
ADDR I 
ENT IF I 



MBER 
RING P 
G ADDR 
U OF T 
HIS ST 
GE OF 



COUNT' 
EMPORARY 

HIS STMN 

STMNT 
NTO REG 
ER 



N STRING 

OINTE3 

ESS 

HIS STMN 

ATEME\»T 

CLOSURE 



NUEX RtG 1 



NEXT WOKD OF STRING TO MOV 
CLQbE SIRING 

INCKEMENT STRING POINTED 
INCH ADUR NEXT WD TO MOVE 
DECK RANGE AND SKIP IF ZER 
BK 10 MUV6 NEXT WORD 
NEW'END OF STRING ADDRESS 
RES | ORE INDEX KEG 1 
AUDKESS Of NEXT STATEMENT 
BR 10 TtST STATEMENT TY^E 
AND'WqRK AREA 
STMnT WURD COUNT 
ADDK QF NfcXT WD TO MOVE 
DECIMAL 2 FOR ADDR INCR 
COMPUTED RANGE OF CLOSURE 
INDfcX RfcGjSTER 1 TEMPORARY 
SYMBOL TABLE ADDRESS 
SYMBOL TABLE OVERLAP I NOR 
ONE DIMENSION CONSTANT 

E IN SYMBOL TABLE 
LAST HALF OF NAME 
NEXT SYMBOL TABLE ENTRY*! 
FIRST HALF OF f'AME 
NEXl SYMBOL TAHLE ENTRY 
DECK END SYMBOL TABLE ADDR 
DECK START OF SURSC TEMPS 
DECK START GENERATED TEMPS 

INDICATOR (REAL OR INTEGER) 
FIRbT HALF OF NAME 
EXTRACT FIRST NAME CHAR 
ALPHA CONSTANT 
SK'JK IF NOT HEAL 
BR TO REEL IF NEG (REAL) 
ALPHA CONSTANT 
BK 10 RtEL IF PLUS 
INTtGER INDICATOR 
BR 10 STOKE INDICATOR 
REAL INDICATOR 
IDENTIFICATION WORD 
BR TO TEST FOR OVERLAP =RR 
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300 
301 
302 
303 
304 
305 
306 
307 
30B 
309 
310 
311 
31?? 
313 
33.4 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
33 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
35 3 
354 
355 
356 
357 
358 
359 



* TEST FOR 
PREV LD 3 

SLA 4 

BSC C 

MDX ER 

BSC L ER,+Z 

* CHECK IF 
LD L SORF 
BSC L SIJBN#+" 
LD 3 

SLA 2 

BSC L SijBN.r 

MDX L FjAMfc.l 

* SPREAD S 
SUBN STX 1 vyv+i 

STX 3 TENT 

LD TENT 

S L F.nFST 

STO TENT 

LDX 12 TENT 

HDX 2 -3 

MDX PASS 

MDX GLINK 

LDX U EOFST 

LD 13 

STO 1 

MDX 1 1 

MDX 2 -1 

MDX LOOP 3 

SLA 16 

STO 3 -1 

STO 3 -2 

STO 3 -3 

LD 3 

OR O'-'EDM 

STO 3 

VVV LDX LI 

MDX L EOFST, -3 

MDX L SQFXT,-3 

MDX L SQFGT,-3 

MDX L Sk'3,1 

LORD LD L EOFST 

A T>!0 

S L EOFS 

BSC L JIMY»+Z 

TARZ MDX 1 1 

LD 10 

S PARNL 

BSC L ER8,Z 

SON1 SLA 16 

STO CMT 

MDX 1 1 

LD 1 

AND PIT 

EOR PIT 

BSC L ER8,Z 

* COLLECT 
LDS 

SLT 32 

STO SJMM 



NAME PREVIOUSLY DIMENSIONED 
IUENTlFlCATIUN WORD 
SHI^T DIMENSION CHARACTER 
JNTU THE CARRY AND SIGN 
POSITIONS ANO BP TO ER IF 
EITHER BIT IS ON, 
SUBPHOGRAM OR FUNCTION 
SUBPROGRAM OH FUNCTION IND 
BR IF EITHER INDICATOR ON 
IDENTIFICATION WORD 
COMMON INDICATOR TO SIGM. 
BK |F ALREADY If) COMMON 
AUJUST (-NAME POINTER 
YMBOLTaBLE FOK DIMENSION WD 
SAV t STATEMENT POINTER 
ADDh OF NAME IN COMMON 



PASS 

LQQP3 



GLINK 



END OF STRING ADDRESS 
NUMBER UF WORDS TO WOVE 



DECK 

BR I 

BR '! 

END" 

LU w 

SPRfc 

INCH 

DECK 

BR f 

CLEa 

ZERO 

ZERO 

ZERO 

IDEN 

ONE 

REPL 

REST 

DECK 

DECK 

DECK 



WOKDS TO 

O SLIDE T 

O CLEAR E 

OF SYMBOL 

ORD TO MO 

AD TABLE 

EMENT MQV 

CTN,bKlR 

O CUNTINN 

R ACCUMUL 

VnD 3 DIM 

WD 2 DIM 

WD 1 DIM 

TIFICATIO 

DIMENSION 

ACE IN TA 

ORE INDEX 

END OF S 

START OF 

START GE 



HOVE 
ABLE 
NTRY 

TABL 
VE 

3 WOR 
E POI 

NEXT 
E 

ATPR 
ENS JO 
ENS IO 
ENSIO 
N WOR 

IND I 
BLE E 

REG I 
YNBOL 

SUBS 
NFRaT 



COUNT' 
1 ENTRY 
IF ZERO 
E ADDLES 

DS 

NTER 
IF D3NE 



N ENTRY 
N ENTRY 
N ENTRY 
D 

CATOR 
NTRY 
STER 1 
TABLE; 
C TfcM?S 
ED TEv<PS 



CHK FOR SYMBOL TRL nVER'LO 

END OF STRING 

BR IF SYMBOL TABLE OVERDO 

MOVfc STATEMENT POINTER 

NEX! CHAR DIMENSION STMMT 

LET! RAKENTHESIS 

BK IF Nu LEFT PARENTHESIS 

CLEAR ACCUMULATOR 

RESfcT DlMENSIOt COUNTER 

MOVfc STUNT POINTER 

NEX! CHAR OF STUNT 

CHECK FUR ALPHA CHARACTER 

BK )0 EK8 IF NOT NUMERIC 
CONSTANT TO BINARY 

RESfcT OVERFLOW AND CARRY 
CLEAR ACCUMULATOR 
CLEAR CONSTANT SUM 
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360 




LD 


1 


WORU 1 UF CONSTANT 


361 




STD 


TEH 




362 




LD 


1 1 


WORu 2 OF CONSTANT 


363 




BSC 


L AOT,- 


BRANCH UN OPERATOR 


364 




SLA 


1 


MAKfc BITS CONTIGUOUS 


365 




STO 


TFM + 1 




366 




LD 


1 2 


NEXT STATEMENT WORD 


367 




MDX 


1 1 


MOVE STATEMENT POINTER 


368 




BSC 


L ER8,* 


3W UN NU UPEHATQR 


369 


AQT 


LD 


TEM 


WQRu 1 UP CONSTANT 


370 


AQTl 


AND 


COTl 


AND OUT ALL HUT 1ST 6 BITS 


371 




SLA 


2 




372 




BSC 


L PILL»C 


BRANCH IP CARRY ON 


373 




BSC 


L NEX,*« 


BR 10 CHECK FOR ZERO CON 


374 




BSC 


L ERR8 


BR EMBEDDED ALPHA CHARADE 


375 


PILL 


BSC 


L ER8,- 


BR NOT MINUS 


376 




AND 


C0T2 


EXTKACT DJGIT 


377 




S 


MINT 


NINE 


378 




BSC 


L ER8,-Z 


8R UiREATEH THAN NINE 


379 




A 


HINT 




380 




SRA 


11 


RIGHT JUSTIFY 


381 




STO 


HELP1 




382 




LD 


SUMM 


CUMULATIVE SUM 


383 




SLA 


1 


TIMtS 2 


384 




STO 


GORT 


TEMHORAKY STORE 


385 




BSC 


L ERR,+Z 


BR iF TUO LARGE 


386 




SLA 


2 


TIMfcS 8 


387 




BSC 


L ER8,C«-Z 


BK JP TUO LARGE 


388 




A 


GORT 


TIMtS 1U 


389 




A 


HELP1 


UNITS DIGIT 


390 




BSC 


L ER8.0 


BR TOO LARGE 


391 




STO 


SUMM 


CUMULATIVE SUM 


392 




LDD 


TEM 


DlGlT TEMPORARY 


3<53 




SLT 


6 


SHJFT NEXT DIGIT TO HIGH 6 


394 




STD 


TEM 




395 




MDX 


AOT1 


BR 10 PKOCF.Sb NEXT DIGIT 


396 


* 




CONSTANTS 


AND~WQRK AREA 


397 


PIT 


DC 


/6000 


ALPHABETIC MASK 


398 


PlTl 


DC 


/7F00 
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EXTERN 
OK DIME 
ID WORD 
STMNT I 

NAME 

i fix n 

T EQUAL 



D WORD 
E A DDR 
TEM=>S 

TEiPS 
H 
TMNT 

AL MAM 

NSI3N, 



NDR 



AME CO 
IFIX 
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720 

721 

722 

723 

724 

725 

726 

727 

728 

7 29 

73 

731 

732 

733 

734 

73b 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

77 

771 

772 

773 

774 

775 

776 

777 

778 

779 



EROR 



TICKK 



TICKP 



TICKQ 



FUN 



TICK 
LAPS 



MA 

ZZ 

MQTQS 



LD 

S 

BSC 

LD 

STO 

BSC 

LD 

S 

BSC 

LD 

S 

BSC 

LD 

BSC 

SLA 

STO 

MDX 

LD 

AND 

S 

BSC 

S 

BSC 

MDX 

LD 

SLA 

BSC 

LD 

SLA 

BSC 

SLA 

BSC 

LD 

BSC 

STX 

MDX 

LD 

BSC 

LD 

AND 

MDX 

LD 

OR 

STO 

MDX 

LD 

S 

BSC 

S 

BSC 

SLA 

STO 

LD 
BSC 

LD 
SLA 
BSC 
MDX 



3 2 



lVlXC + 1 LAS? 



L TICKK, Z 

ER22 
ERNO 
L CLOSE 
3 1 
ELT 

L tickp,; 

3 2 

FLT + 1 
L EROR#*« 

S^6 
L TICKQ, + - 

16 
S-,'6 

MQTQS 

3 1 

H7EQQ 
H1200 
L LAP5.+Z 
H18Q0 

L LAP5,-Z 

MA 
3 
8 

L ER20#+Z 

CHECK FOR 
3 

3 
L ER18#+Z 

1 
L ER18,+Z 

SW4 

TICK,*- 



LAS! HALF OF NAME 
LAS? HALF OF IF IX NAME 30N 
8R IF NAME NOT EQUAL IP IX 
SET UP fcRROR 22 - IF IX 





L 
L 
3 



3 

3 

1 

1 



S--J6 



L 
L 



L 
L 



MLJN 

SU2A 

MA.Z 



RLINU 

zz 


ININP 



•i 
j. 

o 

CQMA 
RROT#+ 
LPAR 
5IS,Z 

16 

CMTQ 

CHECK 

STRF 
SJBQ#*- 



2 

SlJBQ,- 

fhame:,i 



8K 10 CLOSE up STRING 

first half of name 

first half of f l^ name con 

br name nut equal flt 

last half of name 

last half of flt name c3n 

br If name equal flt 

Br* tF SK6 IS OFF 
CLEAR SW6 

br to muve stmnt pointer 
first name word 

EXTKACT FIRST CHARACTER 

BR IF MINUS TO SET REAL 

BR IF PUS TO SET REAL 
BR TO SfcT INTEGER IMDR 
SYMbOL T B L I !J *ORD 

BR IF SUBPROURAM NAME 
NAMfc PREVIOUSLY D I MENS J ONE 
SYMBOL TBL I 1J l "'ORD 

BR IF MULTIPLE DIMENSION 

BR IF MULTIPLE DIMENSION 

EXTtRNAL SWITCH 

8R IF NUT EXTERNAL STMNT 

TURN ON SWITCH 6 

BR rO CHK EXTERNAL ERROR 

REAL/INTEGER SWITCH 

3R |0 SbT INTEGER INDICATO 

SYMBOL TABLE ID WORD 

SET INDICATOR REAL 

BR rO RESTORE ID WORD 

IU WORD 

SET INDICATOR INTEGER 

RES | ORE ID WORD 

INCH STMNT POINTER 

NEXT STMNT WORD 

COMMA CONSTANT 

BR jF CUMMA 

LEFT PARENTHESIS CONSTANT 

BR NOT LEFT PARENTHESIS 



REStT DIMENSION COUNTER 
FOR SUBPROGRAM OR FUNCTION 

SUBPROGRAM OR FUNCTION IND 
BR IF SUBPROG OR FUNCTION 
SYMBOL TBL JO ^ORD 

BR IF ALREADY If! COMMON 
ADJgST (-NAME POINTER 
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780 

78 1 

782 

783 

784 

785 

786 

7B7 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

83 

831 

832 

833 

8 34 

835 

836 

837 

838 

839 



SUHQ STX 1 
STX 3 
LD 

S L 
STO 

LDX 12 
MDX 2 
HDX 
MDX 

PASSS LDX II 

1.00P8 LD 1 
STO 1 
HDX 1 
MDX 2 
MDX 

GLINE SLA 

STO 3 
STO 3 
STO 3 
LD 3 
OR 

STO 3 
MDX L 
MDX L 
MDX L 

SAVIT LDX LI 
MDX L 
LD L 
A 

S L 
BSC L 

PHIL MDX 1 
LD 1 
AND 

EOR 
BSC L 

LDS 

SLT 

STO 

LD 1 

STD 

LD 1 

BSC L 

SLA 

STO 

LD 1 

MDX 1 

BSC L 
BOT LD 
BOTl AND 

SLA 

BSC L 

BSC L 

BSC L 
PILLS BSC L 

AND 

S 

BSC L 



SPREAD 
SAVIT+1 

TENTS 
TENTS 
EOFST 
TENTS 
TENTS 

-3 
PASSS 

GLlM^ 
EOF ST 

3 



1 

-1 
L00P8 

16 

-1 

-?. 

-3 



Hi) Ml 



eqfst,-3 

SOFXT,-3 

S0FGT,-3 

*-* 

SW5.1 

EOFST 

TWOS 

EQFS 

JIMMY, *Z 

1 



H60 

H6000 

ER8R,Z 
COLLECT 



32 

SJMMS 



TEMP 

1 

BOT," 

1 

TEMP+1 

2 

1 

ER8R,+ 

TEMP 

COT10 

2 

PILLS, C 

NEXTi*- 

ER8R 

ER8R,- 

COT20 

MINTS 

F:-?8R,-Z 



SYMBOL 



table fqh dimension wd 

SAVE STMNT POINTER 
ADDK OF NAME IN COMMON 

END OF STRING ADDRESS 
NUMBER UF WO*DS TO MOVE 

DECK wDS TO MOVE COUNT 

3R 10 SLIUE TABLE 1 ENTRY 

3R \0 CLEAR ENTRY IF ZERO 

END'OF SYMBOL TABLE ADDRES 

LD WORD TO MOVE 

SPREAD TABLE THREE WORDS 

INCK MOVE POINTER 

DECK cTK, SKIP NEXT If DON 

8R 10 CONTINUE 

ZERU WD 3 DIMENSION ENTRY 
ZERO WD 2 DIMENSION ENTRY 
ZERU WD 1 DIMENSION ENTRY 
ID WORD 

ONE DIMENSION INDICATOR 
REPLACE IN TABLE ENTRY 
DECK END OF SYMBOL TARLH 
DECK START Q* SUBSC TEM^S 
DECK START GENERATED TE1PS 
RESlORE INDEX REGISTER 1 

CHK FOR SYMBOL TBL OVERLAP 

END OF STRING 

3R IF SYMBOL TABLE OVERLAP 
MOVE STATEMENT POINTER 
NEX! CHARACTER OF STATEMEN 
CHECK FUR ALHHA CHARACTER 

BR 10 EK8 IF NOT NUMERIC 
CONSTANT TO BINARY 

RESET OVERFLOW AND CARRY 

CLEAR CUNSTANT SUM 
WORU ONE OF CONSTANT 

WORU T^U UF CONSTANT 

BR UN OPERATOR 

MAKfc BITS CONTIGUOUS 

NEXl STATEMENT WORD 

MOVE STMNT POINTER 

BR UN NU OPERATOR 

vJU 1 OF CONSTANT 

AND OUT ALL BUT 1ST 6 BITS 

BRANCH IF CA«RY ON 

bk 10 chk for zero constat! 
br Imbedded alpha chara:te 
3r not minus 
extkact digit 

NINE 

8R UREATEK THAN NINE 
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840 

841 

842 

843 

844 

845 

846 

847 

8*8 

849 

8^0 

851 

8?2 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

88 
881 
882 
883 
884 
835 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 

89 8 
899 



A 

SRA 
STQ 
LD 
SLA 
STO 
BSC 
SLA 
BSC 
A 
A 

BSC 
STO 
LDD 
SLT 
STD 
MDX 
* 

TENZ DC 
H6000 DC 
SUMMS DC 

BSS 
TEMP DC 
DC 
COTlO DC 
COT20 DC 
HP1 DC 
CNTQ DC 
MINTS DC 
TWOS DC 
THREE DC 
MUMl DC 
DIMCL DC 
* 

NEXT MDX 
LD 
BSC 
LD 
S 

BSC 
MDX 
LD 
STO 
STO 
STO 
MDX 



0Z2 



0Z3 



S 

BSC 

MDX 

LD 

M 

SLT 

STO 

STO 

MDX 

LD 



HINTS 

11 

M PI 

SJHMS 

1 

TENZ 
L ER8R,+Z 

2 
L FRSRiC+Z 

TENZ 

HPl 

L ER8R,0 
SJHMS 

TEMP 
6 

TEMP 
BOT1 

CONSTANT 


/6000 

E 



/7E00 
/7800 



/48QQ 
2 
3 

/ n 8 o o 

/E7FE 

COMPUTE 
L C'ITQ,1 
SlJMMS 

L ER8R»+- 

CMTQ 
L OME 
Z 

0Z2 

SJHMS 

3 -1 
3 -2 
3 -3 

NEXTS 
L O'JE 

1 

0Z3 

3 -1 
SJHMS 

16 



RESTORE DIGIT 
RIGHT JUSTIFY 

CUMULATIVE SUM 
TIMbS 2 

TEMPORARY STORE 
BR IF TUO LAHGE 
TIMbS 8 

8R IF TUO LAHGE 
TIMtS 1U 
UNITS DIGIT 
BR TOO LAKGE 
CUMULATIVE SUM 
DIGIT TEMPORARY 
SHUT NfcXT DIGIT 



TO HIGH 6 



3 
3 



c 

_ ~f 

o 

NEXTS 
-3 



BR 10 PROCESS NEXT DIGIT 

5 AND'WQRK AREA 

CONbTANT TIMES 2 TEMPORARY 
ALPHABETIC MASK 
CUMULATIVE SUM OF CONSTANT 
MAKfc ADURESS EVEN 
2" WORD TEMPORARY FOR 
CQNbTANt TO HE CONVERTED, 
FIRbT NAME CHAP MASK 
EXTRACT DIGIT CONSTANT 
UNITS DIGIT TEMPORARY 
NUMBER UF CONSTANTS COUMTE 
DECIMAL NINE CONSTANT 
DECIMAL TWO CONSTANT 
DECIMAL THREE CONSTANT 
ONE DIMENSION INDICATOR 
MASK TO REMOVE BITS 3 AMD 

AND" SI ORE DIMENSION CONSTANT 
INCH CONSTANT COUNTER 
CHECK FUR ZERO CONSTANT 
8R IF DIMENSION CON IS ZER 
DIMENSION COUNTER 

SKIP NEXT IF FIRST CONSTAN 
BR TO CUMPUTE 2ND CONSTANT 
DiMfcNSlUN CONSTANT 

stoke fjrst dimension 
conbtan! in all 3 words of 
symbol Table entry, 
br to get next sthnt char 



SLT 

STO 

NEXTS MDX 



sjr 

16 



MS 



SKIP NEXT IF 2ND COllSTAMT 
BR TO CUMPUTE 3RD CONSTANT 
FIRST DIMENSION CONSTANT 
SECOND DIMENSION CONSTANT 

STOKE IN SECOND AND THHD 
DlMtNSlUN WORDS, 
BR 10 GET NEXT STHNT CHAR 
IST'X 2ND DIMENSION CON 
THIRD DIMENSION CONSTANT 

STOKE IN THIRD DIMENSION W 
INCk STMMT PUINTER 
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900 LD 10 MfcXl CHARACTER 

901 S L CQHA COMMA 

902 BSC L CQZ,Z 8R UHK KlGHT PARENTHESIS 

903 LD C'jTQ CHK FqR COUNT LESS THAN 3 

904 S THREE 

905 RSC L ER8R1- 8K |F CUUNT TH*EE OP MO^E 

906 HDX PHIL 8R |0 CULVERT NEXT CONSTAM 

907 COZ S L R D AR RIGHT PARENTHESIS 

908 BSC L F.R8R,Z 3R l"0 EKR IF NO PARI;MTH = SI 

909 LD CMTQ DIMfcNSlUN COUNT 

910 SLA 11 SHIhT Tu BITS 3 AND 4 

911 STO TEMP TEMPORARY 

912 LD 3 SYMBOL TABLE ID WORD 

913 AMD DIMCL SET BjTb 3 AND 4 EQUAL TO 

914 OR TEMP THE NUMBER OF DIMENSIONS, 

915 STO 3 SYMBOL TABLE ID WORD 

916 LD L SW5 

917 BSC L Y£LP*Z 8R TO CHECK FOR OVERLAP 

918 MDX L EOFST,-3 DECK END OF SYMBOL TARLH: 

919 HDX L 5QFXT,-3 DECK START OF SUBSC TEM^S 

920 MDX L SQFGT f -3 DECK START GENERATED TE^PS 

921 YELP LD L EQFST CHK'FQR SYMBOL TRL OVERLAP 

922 A T,J0S 

923 S L EOFS END OF STRING 

924 3SC L JIMMY, +Z 8R jF SYMBOL TABLE OVERLAP 

925 SLA 16 CLEAR ACCUMULATOR 

926 STO L S45 RESfcT SWITCH 5 

927 MDX 1 1 NDVt STMNT POINTER 

928 LD 1 NEXf STMNT CHARACTER 

929 S L COMA COMMA 

930 BSC L SJS,Z 8K NOT COMMA 

931 HDX 1 1 MOVb STMNT POINTER 

932 BSC L ZAR 8R TO CHK FOR LEGAL NAM" 

933 SPOT HDX 1 1 MOVfc STMNT POINTER 

934 BSC L ZAR 8R 10 CHK FOK LEGAL NAM= 

935 * READ AND GO Tu NEXT PHASE 

936 SOS BSI L ROLRX CALL DOWN PHASE 6 

937 DC 06 NEX1 PHASE NUMBER 

938 # CHECK CONTlNUfc SCAN' OR READ NEXT 3 H 

939 TAP LD L Sa'IA 

940 BSC L S0S,Z BR 10 RfcAU NEXT PHASE 

941 BSC L MOVE 8R 10 S(JAN NEXT STMNT 

942 SIS STX LC SW3A SET~SYMB0L T»L OPEN SWITCH 

943 BSC L JAP BR 10 TtST FOR SEMICOLON 

944 JIMMY MDX L ERROR, 1 SET OvEKLAP ERROR ON 

945 HDX SOS BR TO READ NEXT PHASE 

946 * REMOVE STATEMENT h ROM STRING 

947 BOB LDX U TYPEV ADDRESS FjRST wd OF STM\JT 

948 HDX 1 -1 D£ CK STMNT ADDR 

949 LD 1 1 ID W B OF STMNT 

950 SRA 2 RIGHT JUSTlF* WD COUNT 

951 AND L IDNVM EXTkAcT STUNT *D COUNT 

952 STO ZTEL TEMkORAkY 

953 LD L EDFS ADDK END QF STRING 
9^4 S L TYPEV ADDK QF STATEMENT 

955 S ZTEL STATEMENT WO«D COUNT 

956 STO HA.ND*! 

957 HAND LDX L3 MOVfc W OnD COUNT*l 

958 MDX 3 1 ADJUST = WORDS TO MOVE 
9^9 LD L TYPEV ADDK QF STMNT 
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960 




A 




ZTEL 


961 




STQ 




ZTF.N 


962 


ZTF.N 


Lnx 


L2 





963 




STX 


1 


ZTEL 


964 


LPPP 


LD 


2 





965 




STO 


1 


1 


966 




MDX 


1 


1 


967 




MDX 


2 


1 


968 




MDX 


3 


-1 


969 




MDX 




LPPP 


970 




STX 


LI 


EOFS 


971 




LDX 


u 


ZTEL 


972 




MDX 


1 


1 


973 




BSC 


I 


DAP 


974 


ZTEL 


DC 







975 




BSS 




OVER 


976 




END 




TOP 



STMnT wuru count 



ADDK OP STMNT T 
SAVfc ID *ID -1 A 
NEXT WOHD TO MO 
MUVfc TD CLOSE U 
INCH MOVE TO AD 
INCH MOVE PROM 
DECK ANU SKIP I 
BR tO CONTINUE 
NEW'END OF STRI 
RESfORE INDEX P 
ADDk ID WD OK 
BW TO TtST NEXT 
JNDfcX REGISTER 
L-*+320*4 pHASfc-05 P 



MOVE 
DDRESS 
VE 

P STRING 
DP 

ADDR 
P ZERO 
CLOSING 
f!G ADDRESS 
EGISTER 1 

NEXT STMNT 
STMNT TYPE 

1 TEMPORARY 
ATCH AREA 



*< 



